unit Helpr_Demo;

interface
uses
  System.Classes,System.SysUtils,Class_Demo;

type
  TDemoHelpr=class helper for TDemo
    function GetDemoCode:string;
  end;

implementation

{ TDemoHelpr }

function TDemoHelpr.GetDemoCode: string;
begin
  Result:=Format('kazarus.x6.learn:%S',[DemoCode]);
end;

end.
